home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 August
/
CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso
/
disc2
/
programr
/
vbasic
/
loanapp.exe
/
LOANF.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-07-22
|
2KB
|
114 lines
' COPYRIGHT:
'
' (C) Copyright Microsoft Corp. 1993. All rights reserved.
'
' You have a royalty-free right to use, modify, reproduce and
' distribute the Sample Files (and/or any modified version) in
' any way you find useful, provided that you agree that
' Microsoft has no warranty obligations or liability for any
' Sample Application Files which are modified.
'
Global CurrentText As String
Global LabelClicked As Integer
Global AddressBox As Integer
Global Start As Integer
Global MSP As Integer
Type PopUpA
A1 As String * 24
A2 As String * 10
A3 As String * 10
A4 As String * 10
A5 As String * 4
A6 As String * 4
A7 As String * 13
AC1 As Integer
End Type
Type PopUpB
B1 As String * 24
B2 As String * 15
B3 As String * 2
B4 As String * 5
B5 As String * 3
End Type
Type PopUpC
C1 As String * 24
C2 As String * 24
C3 As String * 4
C4 As String * 4
C5 As String * 19
CC1 As Integer
End Type
Type PopUpD
D1 As String * 4
D2 As String * 8
D3 As String * 8
D4 As String * 8
D5 As String * 6
D6 As String * 8
End Type
Type PopUpE
E1 As String * 4
E2 As String * 8
E3 As String * 8
E4 As String * 13
E5 As String * 6
End Type
Type PopUpF
F1 As String * 24
F2 As String * 14
F3 As String * 24
FC1 As Integer
End Type
Type PopUpG
G1 As String * 24
G2 As String * 11
G3 As String * 14
G4 As String * 3
G5 As String * 2
G6 As String * 7
G7 As String * 17
G8 As String * 10
GC1 As Integer
End Type
Type PopUpH
H1 As String * 24
H2 As String * 11
H3 As String * 14
H4 As String * 3
H5 As String * 2
H6 As String * 7
H7 As String * 17
H8 As String * 10
HC1 As Integer
End Type
Type DateRec
T1 As String * 10
T2 As String * 10
End Type
Type TotalRec
A As PopUpA
B As PopUpB
C As PopUpC
D As PopUpD
E As PopUpE
F As PopUpF
G As PopUpG
H As PopUpH
I As PopUpB
J As PopUpB
T As DateRec
End Type
Global MainRec As TotalRec